home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / walkin10 < prev    next >
Internet Message Format  |  1995-03-31  |  2KB
  1. From: detlef@mwhh.hanse.de (Detlef Mueller)
  2. Newsgroups: comp.sources.hp48
  3. Subject: v01i016:  walkin10 - Walkin' lemming v1.0: Little animation program, Part01/01
  4. Date: 14 Aug 91 05:28:10 GMT
  5. Followup-To: comp.sys.hp48
  6.  
  7. Checksum:  289763706 (verify with brik -cv)
  8. Submitted-by: Detlef Mueller <detlef@mwhh.hanse.de>
  9. Posting-number: Volume 1, Issue 16
  10. Archive-name: walkin10/part01
  11.  
  12. BEGIN_DOC walkin.doc
  13. Hi everybody.
  14.  
  15. The following little program is the result of my first experiments with
  16. the RPL tools.
  17. It animates a little lemming :-), walking in the status line. It doesn't
  18. change the value of PICT. Once running, you can stop the program by
  19. pressing a key.
  20.  
  21. Here it is. Load it down into your HP48, convert it using ASC\->. Store
  22. the result into a variable and execute it.
  23.  
  24. Hope you enjoy it.
  25.  
  26. -- Detlef
  27.  
  28. BTW.: If you want a copy of the source code (it was written in
  29. system RPL), send me mail.
  30. END_DOC
  31.  
  32. BEGIN_ASC walkin.asc
  33. %%HP: T(3)A(R)F(.);
  34. "D9D2051A81916C1A8B4616735FEF3076040FD62124F50FEF302A170908267104
  35. 047A20E1B2032000A00006000000E1E0C1C0C0C0C0E0C0E1B2032000A0000600
  36. 0041E0E0C1C0E0E2C26160E1B2032000A00006000000A0E0C0C1E0E0F1E133E1
  37. B2032000A00006000000C0E1E1C0C0E0C0F191E1B2032000A00006000000E1E0
  38. E1C0C0C0C0E0C0E1B2032000A000060000A07070E060606161B030E1B2032000
  39. A00006000000A0E0C0C1C0C0C1E133E1B2032000A00006000000C0E1E1C0C0C0
  40. C0F191B2130EF116F30407FE3044230FED30C9B26EF116E0E307104035040B20
  41. 40F85110B8210B82188130710407FE30442306AC30CB916D9D20339202000000
  42. 000000040339207990000000000520A5141B21304B4949C7A141740CB916D9D2
  43. 08523011920C7000B213026224CB916D9D204423011920C700086050B2130881
  44. 3011920C700091D308C1704423017D00F76C144193B21305446"
  45. END_ASC
  46.  
  47. BYTES: #6445h    354
  48.  
  49. BEGIN_UU walkin.uu
  50. begin 644 walkin
  51. M2%!(4#0X+46=+5"A&!G&H;AD83?U_@-G0/!M$D)?\/X#HG&0@&(70$"G`AXKP
  52. M,`(`"@!@````'@X<#`P,#`X,'BLP`@`*`&```!0.#AP,#BXL%@8>*S`"``H`7
  53. M8`````H.#!P.#A\>,QXK,`(`"@!@````#!X>#`P.#!\9'BLP`@`*`&`````>,
  54. M#AX,#`P,#@P>*S`"``H`8```"@<'#@8&%A8+`QXK,`(`"@!@````"@X,'`P,Z
  55. M'!XS'BLP`@`*`&`````,'AX,#`P,'QDK,>`?83]`<.\#1#+PW@.<*^8?80X^M
  56. M<`$$4T"P`@2/%0&+$K`H@1@#%T!P[P-$,F#*`[P9UMD",RD@````````0#"3+
  57. M`I<)`````%`"6D&Q$@.TE)1\&A1'P)MAG2V`)0,1*<`'`"LQ("9"O!G6V0)$#
  58. E,A"1`GP`@`8%*S&`&`,1*<`'`!D]@!P'1#(0UP!_QD$4.2LQ`"LQ[
  59. ``
  60. end
  61. END_UU
  62. -- 
  63.  
  64.             Detlef Mueller
  65.              detlef@mwhh.hanse.de
  66.       ...!uunet!mcsun!unido!mcshh!mwhh!detlef
  67.  
  68.